program task3_text;
const kill='.';
var value,store:string[80];
    I,cntr1,cntr2:integer;

begin
writeln('ENTER A MULTILINE TEXT');
readln(value);
cntr1:=0;
cntr2:=0;
while value <> kill do
         begin
                        for I:=1 to Length(value) do
                                case value[I] of
                                '0'..'9':cntr1:=cntr1+1;
                                end;

                        if cntr1 > cntr2 then begin
                                              cntr2:=cntr1;
                                              store:=value;
                                              cntr1:=0;
                                              end;
                        readln(value);
         end;

writeln('Longest sentence:');
writeln(store);
end.